home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / RS232.ARC / BBS%a4C.C < prev    next >
Text File  |  2019-04-13  |  1KB  |  82 lines
  1.  
  2. /*
  3.     BBSñC.C
  4.  
  5.     ╩AN 30 1988
  6.     ─ENNY ╞IGUERRES
  7. */
  8.  
  9. #INCLUDE <STDIO.H>
  10.  
  11.  
  12. #INCLUDE <DEFN.H>
  13.  
  14.  
  15. #INCLUDE <TERM.H>
  16.  
  17.  
  18.  
  19.  
  20. UNSIGNED ═ODE;
  21. UNSIGNED ECHO = 1;
  22.  
  23.  
  24. STATIC CHAR *PARAM1 = 0X03FD;
  25. STATIC CHAR *PARAM2 = 0X03FE;
  26. STATIC CHAR *PARAM3 = 0X03FF;
  27. STATIC CHAR (*FILEPARAM)[16] = 0X03E0;
  28. STATIC CHAR (*STRINGñBUFF)[161] = 0X0200;
  29.  
  30. STATIC CHAR USERñONñLINE;   /* ╘╥╒┼ OR ╞┴╠╙┼ */
  31.  
  32.  
  33.  
  34. ANSWER()
  35. █
  36.     CHAR QUIT;
  37.     UNSIGNED COUNT=0;
  38.     ═ñFLUSH();
  39.     USERñONñLINE = (CHAR) ╞┴╠╙┼;
  40.  
  41.     WHILE(  ( PEEK(0X0F,0XDD01)&0X08 ) ╬╧╘ñ┼╤╒┴╠ ╬╒╠╠)
  42.             IF( (QUIT = INKEY()) ╔╙ñ┼╤╒┴╠ ┼╙├)
  43.                 BREAK;
  44.  
  45.     IF(QUIT ╔╙ñ┼╤╒┴╠ ┼╙├)
  46.         RETURN;
  47.  
  48.      /* !-------------------- ├┴╠╠ ├╧═╔╬╟ ╔╬ ---------------------! */
  49.  
  50.  
  51.     OFFñHOOK();
  52.     WHILE ( (PEEK(0X0F,0XDD01)&16 ) ┴╬─ (COUNT<20000) )
  53.            COUNT++;
  54.  
  55.     IF ( (PEEK(0X0F,0XDD01)&16) ╔╙ñ┼╤╒┴╠ ╬╒╠╠)
  56.         █
  57.             /* #----------------------! ├╧╬┼├╘ !-----------------------# */
  58.  
  59.             IF ( LOGGIN(MODE) ╔╙ñ┼╤╒┴╠ ╘╥╒┼)
  60.                 █
  61.                     ONñHOOK();
  62.                     RETURN;
  63.                 ▌
  64.             ELSE USERñONñLINE = (CHAR) ╘╥╒┼;
  65.  
  66.         ▌
  67.     RETURN;
  68.  
  69. ▌
  70.  
  71.  
  72. #INCLUDE <BBSñPARAMS.C>
  73.  
  74.  
  75.  
  76.  
  77. MAIN()
  78. █
  79.     HIGHMEM(0X8000);
  80.     PARAMS();
  81. ▌
  82.